source("c:/tappelhans/uni/software/development/metvurst/gVisTimeSeries/gVisTimeSeries.R")

inputpath <- "c:/tappelhans/uni/marburg/kili/testing/kili_data"
flst <- list.files(inputpath, pattern = "cti05_0005", recursive = T)

dat <- read.table(paste(inputpath, flst[[2]], sep = "/"), header = T, sep = ",",
                  fill = T)

gVisTimeSeries("Datetime", "Ta_200", "rH_200", dat, "test", "c:/tappelhans/uni/test.htm")
